00100	BEGIN "TEST4"
00200		DEFINE ↓="(13&10)";
00300		STRING PROCEDURE N(INTEGER X);
00400		RETURN(((X%'200)+'100)&(X LAND '177));
00500		DEFINE Q="'177";
00600		OPEN(1,"DSK",0,0,2,0,0,0);
00700		ENTER(1,"XAPCMD",0);
00800		OUT(1,Q&"I"&N(100)&N(100));
00900		OUT(1,Q&"⊗"&'30);
01000		OUT(1,"ZLINK1.PLT[DAT,BGB]"&↓);
01100		OUT(1,Q&"I"&N(800)&N(100));
01200		OUT(1,Q&"⊗"&'30);
01300		OUT(1,"ZLINK2.PLT[DAT,BGB]"&↓);
01400		OUT(1,Q&"I"&N(100)&N(600));
01500		OUT(1,Q&"⊗"&'30);
01600		OUT(1,"ZLINK3.PLT[DAT,BGB]"&↓);
01700		OUT(1,Q&"I"&N(800)&N(600));
01800		OUT(1,Q&"⊗"&'30);
01900		OUT(1,"ZLINK4.PLT[DAT,BGB]"&↓);
02000		OUT(1,Q&"I"&N(100)&N(1100));
02100		OUT(1,Q&"⊗"&'30);
02200		OUT(1,"ZLINK5.PLT[DAT,BGB]"&↓);
02300		OUT(1,Q&"I"&N(800)&N(1100));
02400		OUT(1,Q&"⊗"&'30);
02500		OUT(1,"ZLINK6.PLT[DAT,BGB]"&↓);
02600		RELEASE(1);
02700	END "TEST4";